home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR39.PFILE2.ARC / (ÓTAR ÔREK (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  23.8 KB  |  667 lines
  1. 100 POKE152,PEEK(251)
  2. 110 GOTO420
  3. 120 :
  4. 130 :REM START OF USER JUMP TABLE.
  5. 140 :
  6. 150 GOTO630 :REM SEND P$+CHR$(13) OUT.
  7. 160 GOTO640 :REM SEND P$ OUT.
  8. 170 GOTO680:REM GET L$ FROM MODEM.
  9. 180 B=D7%:GOTO1250:REM SEND 'P' TO REL.
  10. 190 B=D7%:GOTO780:REM READ ERR CHANNEL.
  11. 200 GOTO800:REM READ SYSTEM CLOCK.
  12. 210 GOTO860:REM DISPLAY USER ONLINE.
  13. 220 GOTO880:REM REMOTE SYSOP MENU.
  14. 230 GOTO1040:REM DISPLAY DIR.
  15. 240 GOTO1230:REM BREAK RC INTO LO/HI.
  16. 250 GOTO1280:REM UPDATE (USER LOG).
  17. 260 GOTO1290:REM EMPTY UL$.
  18. 270 GOTO1300:REM GET U$() FROM DISK.
  19. 280 GOTO1310:REM GET N$() FROM DISK.
  20. 290 GOTO1320:REM SEND U$() TO DISK.
  21. 300 GOTO1330:REM SEND N$() TO DISK.
  22. 310 GOTO1350:REM FIND DV,DR$ IN DR%().
  23. 320 GOTO1360:REM FIND DV,DR$
  24. 330 GOTO1370:REM INCREMENT DV,DR$.
  25. 340 GOTO1430:REM HANG UP PHONE.
  26. 350 GOTO1490:REM FIND TIME CONNECTED.
  27. 360 GOTO1650:REM RETURN TO BBS.
  28. 370 GOTO1660:REM LOAD NEXT MODULE.
  29. 380 GOTO1540:REM GET SC() FROM DISK.
  30. 390 GOTO1620:REM SEND SC() TO DISK.
  31. 400 GOTO1520:REM SEND SEQ OUT.
  32. 410 :
  33. 420 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:DV=8:N$=CHR$(0):SI=54272
  34. 430 DIMU$(15),N$(15),DR%(7):DR$="0"
  35. 440 GOSUB450:GOTO500
  36. 450 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,A:IFA=0THEN470
  37. 460 FORI=0TOA-1:INPUT#1,A$,A,A:NEXT
  38. 470 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  39. 480 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  40. 490 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4:CLOSE1:RETURN
  41. 500 F$=CHR$(13):P=0:POKE51972,P:SYS51976:BS=255:UL$=""
  42. 510 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":GOTO1720
  43. 520 IFA$="[133]"THENSY=SY+1:GOSUB880:SY=SY-1:RETURN
  44. 530 IFA$<>"[134]"THEN560
  45. 540 P$=F$+F$+"[195]HAT [205]ODE:"+F$:GOSUB150:SYS52012:CD=PEEK(52033)
  46. 550 A$=CHR$(PEEK(52034)):P$=F$+F$+"[197]XITED...."+F$:GOSUB150
  47. 560 IFA$="[140]"THENCD=1:RETURN
  48. 570 IFL<>65535THENRETURN
  49. 580 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  50. 590 CD=1:UL$="":RETURN
  51. 600 IFA$=""ORZ$=""THENGOSUB620
  52. 610 RETURN
  53. 620 POKESI+4,21:POKESI+4,20:RETURN
  54. 630 P$=P$+F$
  55. 640 IFL=55THENPRINT#4,P$;:RETURN
  56. 650 POKE52030,SY:POKE52031,CG:POKE52040,MM:SYS51994,P$
  57. 660 CD=PEEK(52033):A$=CHR$(PEEK(52034)):IFA$=CHR$(0)THENA$=""
  58. 670 RETURN
  59. 680 GOSUB1490:IFVAL(U$(14))<COTHEN720
  60. 690 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L:POKE52040,MM
  61. 700 L$="                           ":SYS52003,L$:CD=PEEK(52033)
  62. 710 L=PEEK(52034)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB520:RETURN
  63. 720 P$=F$+F$+"[217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!!"+F$+"[199][207][207][196][194][217][197]!"+F$:GOSUB150
  64. 730 GOTO360
  65. 740 GOSUB1240:AA=RF:GOSUB1350
  66. 750 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB780:NEXT
  67. 760 GOSUB780:IFER$<"20"ORER$="50"THENRETURN
  68. 770 PRINT"[197]RROR IN (USERFILE)!":GOSUB1430:STOP
  69. 780 ES$="":GOSUB790:ER$=LEFT$(ES$,2):RETURN
  70. 790 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO790:RETURN
  71. 800 T1$="04:22:21.1 PM":SYS51982,T1$:TM$=T1$+""
  72. 810 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  73. 820 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO850
  74. 830 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  75. 840 IFC2THENC2=0:NT=0:IFS9THENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  76. 850 DA$=M$+STR$(DT):RETURN
  77. 860 PRINT"[156]"F$U$(1)" <*> [204]VL-"+MID$(STR$(AC),2):GOSUB1490
  78. 870 PRINTTM$" [195]ONNECTED:"STR$(CO)" MINS.[152]":RETURN
  79. 880 D8=D7:DR$=D7$
  80. 890 P$=" [147]":GOSUB150
  81. 900 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB150
  82. 910 P$="$ - [196]IRECTORY":GOSUB150
  83. 920 P$="@ - [196]OS COMMANDS":GOSUB150
  84. 930 P$="# - [212]OGGLE DRIVE #"+STR$(D8)+";"+DR$:GOSUB150
  85. 940 P$=F$+"[210][211][205]"+MID$(STR$(D8),2)+";"+DR$+":":GOSUB160:L=1:GOSUB170:IFCDTHENRETURN
  86. 950 IFL$=""THENRETURN
  87. 960 GOSUB1280:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  88. 970 AA=D8:ON-(L$="$")-2*(L$="#")GOSUB1040,1370
  89. 980 IFL$="?"THEN890
  90. 990 IFL$<>"@"THEN940
  91. 1000 P$=F$+">":GOSUB160:L=39:GOSUB170:IFCDTHENRETURN
  92. 1010 B=D8-8:IFL$=""THENGOSUB780:P$=F$+ES$:GOSUB150:GOTO940
  93. 1020 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  94. 1030 GOTO940
  95. 1040 P$=F$+"[208]ATTERN? $"+DR$+":":GOSUB160:L=16:GOSUB170:FI$=L$+""
  96. 1050 IFFI$=""THENFI$="*"
  97. 1060 P$=F$:GOSUB150:OPEN1,D8,0,"$"+DR$+":"+FI$
  98. 1070 GOSUB780:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB150:RETURN
  99. 1080 GET#1,A$:GET#1,A$
  100. 1090 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  101. 1100 GET#1,LO$:GET#1,HI$
  102. 1110 LO$=LO$+N$:HI$=HI$+N$
  103. 1120 P$=STR$(ASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0)))+" "
  104. 1130 GET#1,A$:IFA$=""THEN1170
  105. 1140 GET#5,Z$:IFZ$=""THENGETZ$
  106. 1150 IFZ$=" "THENCLOSE1:RETURN
  107. 1160 P$=P$+A$:GOTO1130
  108. 1170 IFECANDMID$(P$,8,1)="("THEN1090
  109. 1180 GOSUB150:IFA$=" "THENCLOSE1:RETURN
  110. 1190 GOTO1090
  111. 1200 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  112. 1210 GOSUB1200:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  113. 1220 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB1200:RETURN
  114. 1230 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  115. 1240 GOSUB1230:R1=LO:R2=HI:RETURN
  116. 1250 GOSUB1240:GOTO750
  117. 1260 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  118. 1270 AA=VAL(N$(3)):RETURN
  119. 1280 IFLEN(UL$)<230THENRETURN
  120. 1290 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  121. 1300 GOSUB1310:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  122. 1310 FORT=1TO15:INPUT#3,N$(T):NEXT:RETURN
  123. 1320 FORI=1TO15:N$(I)=U$(I):NEXT
  124. 1330 N$(0)="":FORT=1TO15:N$(0)=N$(0)+Q$+N$(T)+F$:NEXT
  125. 1340 PRINT#3,N$(0):RC=1:GOSUB740:RETURN
  126. 1350 B=AA-8:A=-((DR%(B)AND128)=128):DR$=MID$(STR$(A),2):RETURN
  127. 1360 GOSUB1350:A=(AAAND128)=128:DR$=MID$(STR$(A),2):RETURN
  128. 1370 IFDR$="0"THENGOSUB1350:IFDR$="1"THENRETURN
  129. 1380 AA=AA+1:IFAA>15THENAA=8
  130. 1390 FORL=0TO(DR-8):IFAA<>(DR%(L)AND63)THENNEXT:GOTO1380
  131. 1400 IFA1AND32ORSYTHEN1420
  132. 1410 GOSUB1350:IFDR%(B)AND64THEN1380
  133. 1420 D8=AA:DR$="0":RETURN
  134. 1430 ON(MT%-1)GOTO1440,1450,1470,1480,1210,1210
  135. 1440 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  136. 1450 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT
  137. 1460 PRINT#5,"[193][212][200]0[216]2[197]0[205]0[209]0[214]0[211]0=0":RETURN
  138. 1470 POKEB2,38:POKEB1,38:RETURN
  139. 1480 POKEB1,PEEK(B1)OR32:RETURN
  140. 1490 GOSUB800:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  141. 1500 IFLH=12ANDC2THENCO=ABS(CO-720)
  142. 1510 RETURN
  143. 1520 B=D7%:OPEN1,D7,5,D7$+":"+FI$:GOSUB190:IFER$>"01"THENCLOSE1:RETURN
  144. 1530 POKE52030,SY:SYS52021:CLOSE1:CD=PEEK(52033):A$=CHR$(PEEK(52034)):RETURN
  145. 1540 OPEN3,8,3,"0:(SCORES)":GOSUB190:IFER$>"01"THENCLOSE3:RETURN
  146. 1550 RC=R:GOSUB1230:B=0:GOSUB750:GET#3,A$:IF(ST)AND64THENSC=0:GOTO1570
  147. 1560 INPUT#3,SC
  148. 1570 IFSC=0THENSC=I:CLOSE3:DIMSC(SC):RETURN
  149. 1580 IFI>SCTHENDIMSC(I):GOTO1600
  150. 1590 DIMSC(SC)
  151. 1600 FORT=1TOSC:INPUT#3,SC(T):NEXT:CLOSE3:IFI>SCTHENSC=I
  152. 1610 RETURN
  153. 1620 OPEN3,8,3,"0:(SCORES)":GOSUB190:IFER$>"01"THENCLOSE3:RETURN
  154. 1630 RC=R:GOSUB1230:B=0:GOSUB750:SC$=STR$(SC)+F$:FORT=1TOSC
  155. 1640 SC$=SC$+STR$(SC(T))+F$:NEXT:PRINT#3,SC$;:RC=1:GOSUB750:CLOSE3:RETURN
  156. 1650 FI$="(ST/R 3.?)":DV=D5
  157. 1660 Q$=CHR$(34)
  158. 1665 SYS52050:OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:AA=DV:GOSUB1360:FORT=1TO15
  159. 1670 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  160. 1680 PRINT#1,A9:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  161. 1690 PRINT#1,DV:PRINT#1,NW:PRINT#1,Q$L$:CLOSE1:POKE252,32
  162. 1700 POKE251,PEEK(152):PRINT"[146][147]LOAD"Q$DR$":"FI$Q$","DVAND127""
  163. 1710 POKE631,131:POKE198,1:NEW
  164. 1720 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  165. 1730 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SA,SY,A9,HL,M$,DT,T,LN$,DV,NW,L$
  166. 1760 CLOSE1:GOSUB1260:CG=VAL(U$(8)):IFT=2THENF$=CHR$(13)+CHR$(10)
  167. 1770 D7=DVAND127:AA=(DVAND128)=128:D7$=MID$(STR$(AA),2):D7%=D7-8:SYS52041
  168. 1900 IF(CG)OR(PEEK(52070))THEN2000
  169. 1910 PRINT"[139][211]ORRY, YOU MUST BE IN [195]OMMODORE[139][195]OLOR [199]RAPHIC [205]ODE OR BE USING"
  170. 1920 PRINT"[139][201][194][205] [193][206][211][201] [195]OLORS....[139]":GOTO360
  171. 1950 GOSUB340:GOTO360
  172. 2000 DIMST$(2):ST$(1)=" * ":ST$(2)=" * ":EN$="[[197]]":KL$="<[203]>":SB$="-[207]-"
  173. 2010 AA=RND(-TI):GS=2895
  174. 2020 REM"**********************"
  175. 2030 REM"*** [211][212][193][210][160][212][210][197][203] [214]4.0 ***"
  176. 2040 REM"**********************"
  177. 2050 REM" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  178. 2060 REM"<6-1-84 : [196]OUGLAS [205]C[204]AUGHLIN>"
  179. 2070 REM" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  180. 2080 GOTO2100
  181. 2090 IFNN=14THENNN=12
  182. 2095 FORJ=1TONN:PRINTNU$"[139]":NEXT:RETURN
  183. 2100 NU$="                                       "
  184. 2110 DIMG(8,8),C(9,2),K(9,3),N(3),Z(8,8),D(9)
  185. 2120 PRINT"[147] [152][215][200][193][212][160][204][197][214][197][204][160][207][198][160][195][207][205][205][193][206][196],[160][211][201][210]?[160](0-150):":L=3:GOSUB170:IFCDTHEN1950
  186. 2130 LL=VAL(L$):IFLL<0ORLL>150THEN2120
  187. 2140 LV=LL*.02
  188. 2150 PRINT"[147] [139]"
  189. 2160 PRINT"THE [213][211][211][160][197][206][212][197][210][208][210][201][211][197][160]--- [206][195][195]-1701[139]":PRINT"[154][139]"
  190. 2170 PRINT"\_05                  ,------*[154]------,[139]"
  191. 2180 PRINT"\_04 ,-----[152]*[154]-----,     '----/ /-----'[139]"
  192. 2190 PRINT"\_04'--------( (--'        / /[139]"
  193. 2200 PRINT"\_05     ,---' '---------/ /--,[139]"
  194. 2210 PRINT"\_05     (........-----------'[139]":PRINT"[158][139]"
  195. 2220 PRINT"\_14***************[139]"
  196. 2230 PRINT"\_13* ![211][212][193][210][160][212][210][197][203]! [158]*[139]"
  197. 2240 PRINT"\_12*[156] (THE GAME)  [158]*[139]"
  198. 2250 PRINT"\_11***************[139]":PRINT"[139]\_10[214]ERSION 4.0 : 6/1/84[139]"
  199. 2260 PRINT"\_09[194]Y: [196]OUGLAS [205]C[204]AUGHLIN[139]"
  200. 2270 A1$="123456780"
  201. 2280 PRINT"[152][139]"
  202. 2290 Z$="                          "
  203. 2300 T=INT(RND(1)*20+20)*100:T0=T:T9=25+INT(RND(1)*(LL*.6*10)):D0=0:E=3000:E0=E
  204. 2310 P=10:P0=P:S9=200:S=0:B9=0:K9=0:X$="":X0$=" IS "
  205. 2320 DEFFND(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2)
  206. 2330 DEFFNR(R)=INT((RND(1)*R)*7.98+1.01)
  207. 2340 REM"*** [201][206][201][212][201][193][204][201][218][197][160][208][207][211][201][212][201][207][206]"
  208. 2350 Q1=FNR(1):Q2=FNR(1):S1=FNR(1):S2=FNR(1)
  209. 2360 FORI=1TO9:C(I,1)=0:C(I,2)=0:NEXT
  210. 2370 C(3,1)=-1:C(2,1)=-1:C(4,1)=-1:C(4,2)=-1:C(5,2)=-1:C(6,2)=-1
  211. 2380 C(1,2)=1:C(2,2)=1:C(6,1)=1:C(7,1)=1:C(8,1)=1:C(8,2)=1:C(9,2)=1
  212. 2390 FORI=1TO9:D(I)=0:NEXT
  213. 2400 REM"*** [211][197][212][213][208][160][199][193][204][193][216][217]:[160]K3=[203][204][201][206][199][207][206][211];      B3=[194][193][211][197][211]; S3=[211][212][193][210][211]"
  214. 2410 K9=0:B9=0:FORI=1TO8:FORJ=1TO8:K3=0:Z(I,J)=0:R1=RND(1)
  215. 2420 IFLL>100THENDM=INT(RND(1)*3)+7:K3=DM:K9=K9+DM:GOTO2490
  216. 2430 IFR1>(.98-(.1*LV))THENK3=5:K9=K9+5:GOTO2490
  217. 2440 IFLL>INT(RND(1)*40)+11THENIFR1>(.97-(.2*LV))THENK3=6:K9=K9+6:GOTO2490
  218. 2450 IFLL>5THENIFR1>(.98-(.5*LV))THENK3=4:K9=K9+4:GOTO2490
  219. 2460 IFR1>.98-LVTHENK3=3:K9=K9+3:GOTO2490
  220. 2470 IFR1>.95-(LV*1.4)THENK3=2:K9=K9+2:GOTO2490
  221. 2480 IFR1>.8-(LV*1.7)THENK3=1:K9=K9+1
  222. 2490 B3=0:IFRND(1)>(.94-(LL*.002))THENB3=1:B9=B9+1
  223. 2500 G(I,J)=K3*100+B3*10+INT(RND(1)*9)+1:NEXT:NEXT:IFK9>T9THENT9=K9+1
  224. 2510 IFB9<>0THEN2540
  225. 2520 IFG(Q1,Q2)<200THENG(Q1,Q2)=G(Q1,Q2)+100:K9=K9+1
  226. 2530 B9=1:G(Q1,Q2)=G(Q1,Q2)+10:Q1=FNR(1):Q2=FNR(1)
  227. 2540 K7=K9:IFB9<>1THENX$="S":X0$=" ARE "
  228. 2550 IFK9<3*LLTHEN2410
  229. 2560 DM$="[159][208]RESS <[211][208][193][195][197]-[194][193][210]> TO CONTINUE.[152]":PRINT"\_06"DM$"\G1[139]"
  230. 2580 PRINT"[147] [217][207][213][210][160][207][210][196][197][210][211][160][193][210][197][160][193][211][160][198][207][204][204][207][215][211]:[139][139]"
  231. 2590 PRINT"     [196]ESTROY THE"STR$(K9)" [203]LINGON [215]ARSHIPS[139]WHICH HAVE INVADED "
  232. 2600 PRINT"THE [199]ALAXY BEFORE[139]THEY CAN ATTACK [198]EDERATION [200]EADQUARTERS[139]"
  233. 2610 PRINT"ON [211]TARDATE"STR$(T0+T9)". [212]HIS GIVES YOU"STR$(T9):PRINT"[139]DAYS. [212]HERE"X0$;
  234. 2620 PRINT"[157]"STR$(B9)" [211]TARBASE"X$" IN THE[139][199]ALAXY FOR RESUPPLYING YOUR SHIP.[139]"
  235. 2630 PRINT"[139][200][201][212][160][193][206][217][160][203][197][217][160][212][207][160][212][193][203][197][160][195][207][205][205][193][206][196]\G1[139]"
  236. 2650 X=0:Y=0:GOSUB6700:NN=12:GOSUB2090:X=0:Y=10:GOSUB6700
  237. 2660 REM"*** [199][207][197][211][160][212][207][160][200][197][210][197][160][215][200][197][206][160][197][206][212][197][210][201][206][199][160][160][160][160][160][160][206][197][215][160][209][213][193][196][210][193][206][212]"
  238. 2670 Z4=Q1:Z5=Q2:K3=0:B3=0:S3=0:G5=0:D4=RND(1)*.5:Z(Q1,Q2)=G(Q1,Q2)
  239. 2680 IFQ1<1ORQ1>8ORQ2<1ORQ2>8THEN2780
  240. 2690 GOSUB6400:IFT0<>TTHEN2720
  241. 2700 PRINT"[217]OUR MISSION BEGINS WITH THE [197]NTERPRISE[139]LOCATED ";
  242. 2710 PRINT"IN THE [199]ALACTIC [209]UADRANT:[139]":PRINTG2$".[139]":GOTO2730
  243. 2720 PRINT"[197]NTERING "G2$" [209]UADRANT...[139]"
  244. 2730 K3=INT(G(Q1,Q2)*.01):B3=INT(G(Q1,Q2)*.1)-10*K3
  245. 2740 S3=G(Q1,Q2)-100*K3-10*B3:IFK3=0THEN2770
  246. 2750 PRINT"[152][195][207][205][194][193][212][160][193][210][197][193]     [195][207][206][196][201][212][201][207][206][160][210][197][196][152][139]":IFS>200THEN2770
  247. 2760 PRINT"[211][200][201][197][204][196][211][160][196][193][206][199][197][210][207][213][211][204][217][160][204][207][215][139]"
  248. 2770 FORI=1TO9:K(I,1)=0:K(I,2)=0:K(I,3)=0:NEXT
  249. 2780 Q$=Z$+Z$+Z$+Z$+Z$+Z$+Z$+LEFT$(Z$,17)
  250. 2790 REM"*** [208][204][193][195][197][160][197][206][212][197][210][208][210][201][211][197][160][198][201][210][211][212][160][212][200][197][206][160][160][160][160][160][203][204][201][206][199][207][206][211],[160][211][212][193][210][194][193][211][197][211][160][193][206][196][160][211][212][193][210][211]"
  251. 2800 A$=EN$:Z1=S1:Z2=S2:GOSUB6190:IFK3<1THEN2830
  252. 2810 FORI=1TOK3:GOSUB6160:A$=KL$:Z1=R1:Z2=R2
  253. 2820 GOSUB6190:K(I,1)=R1:K(I,2)=R2:K(I,3)=S9*(.5*RND(1)):NEXT
  254. 2830 IFB3<1THEN2850
  255. 2840 GOSUB6160:A$=SB$:Z1=R1:B4=R1:Z2=R2:B5=R2:GOSUB6190
  256. 2850 FORI=1TOS3:GOSUB6160:J=INT(RND(1)*2+1):A$=ST$(J):Z1=R1:Z2=R2:GOSUB6190:NEXT
  257. 2860 GOSUB5070
  258. 2870 IFS+E>10THENIFE>10ORD(7)=0THEN2930
  259. 2880 A1$="123456780"
  260. 2890 PRINT"\W3":X=0:Y=10:GOSUB6700:NN=14:GOSUB2090:X=0:Y=10:GOSUB6700
  261. 2900 PRINT"** [198][193][212][193][204][160][197][210][210][207][210] **[152] [217]OU'VE JUST STRANDED[139]YOUR SHIP IN SPACE. [139]"
  262. 2910 PRINT"[217]OU HAVE INSUF-":PRINT"FICIENT MANEUVERING ENERGY AND [211]HIELD[139]"
  263. 2915 PRINT"[195]ONTROL ISN'T ";
  264. 2920 PRINT"CAPABLE OF CROSS CIR-[139]CUITING TO THE [197]NGINE [210]OOM!![139]":GOTO4910
  265. 2930 X=0:Y=24:GOSUB6700:PRINTNU$:X=0:Y=24:GOSUB6700:PRINT"[195][207][205][205][193][206][196]: "
  266. 2940 POKE45058,1:L=1:GOSUB170:POKE45058,0:ONCDGOTO1950:PRINTL$;:A$=L$+""
  267. 2950 X=0:Y=10:GOSUB6700:FORJ=1TO12:PRINTNU$"[139]":NEXT:X=0:Y=24:GOSUB6700:PRINTNU$;
  268. 2955 X=0:Y=10:GOSUB6700
  269. 2960 FORI=1TO9:IFA$<>MID$(A1$,I,1)THEN3000
  270. 2970 ONIGOTO3110,2860,3820,3910,4150,4470,4580,5430,2980
  271. 2980 PRINT"[193][210][197][160][217][207][213][160][211][213][210][197][160][217][207][213][160][215][201][211][200][160][212][207][160][209][213][201][212]? (Y/N):":L=1:GOSUB170:ONCDGOTO1950
  272. 2985 IFL$="N"ORL$="[206]"THEN2930
  273. 2990 GOTO4960
  274. 3000 NEXT:PRINT"[197][206][212][197][210][160][207][206][197][160][207][198][160][212][200][197][160][198][207][204][204][207][215][201][206][199]:[139]"
  275. 3010 PRINT"1-[206][193][214][160]([212][207][160][211][197][212][160][195][207][213][210][211][197])[139]"
  276. 3020 PRINT"2-[211][210][211][160]([211][200][207][210][212][160][210][193][206][199][197][160][211][197][206][211][207][210][160][211][195][193][206])[139]"
  277. 3030 PRINT"3-[204][210][211][160]([204][207][206][199][160][210][193][206][199][197][160][211][197][206][211][207][210][160][211][195][193][206])[139]"
  278. 3040 PRINT"4-[208][200][193][160]([212][207][160][198][201][210][197][160][208][200][193][211][197][210][211])[139]"
  279. 3050 PRINT"5-[212][207][210][160]([212][207][160][198][201][210][197][160][208][200][207][212][207][206][160][212][207][210][208][197][196][207][197][211])[139]"
  280. 3060 PRINT"6-[211][200][197][160]([212][207][160][210][193][201][211][197][160][207][210][160][204][207][215][197][210][160][211][200][201][197][204][196][211])[139]"
  281. 3070 PRINT"7-[196][193][205][160]([198][207][210][160][196][193][205][193][199][197][160][195][207][206][212][210][207][204][160][210][197][208][207][210][212][211])[139]"
  282. 3080 PRINT"8-[195][207][205][160]([212][207][160][195][193][204][204][160][207][206][160][204][201][194][210][193][210][217]-[195][207][205][208][213][212][197][210])[139]"
  283. 3090 PRINT"0-[216][216][216][160]([212][207][160][210][197][211][201][199][206][160][217][207][213][210][160][195][207][205][205][193][206][196])[139][139]":GOTO2870
  284. 3100 REM"*** [195][207][213][210][211][197][160][195][207][206][212][210][207][204]"
  285. 3110 PRINT"[195][207][213][210][211][197][160](1-9):":L=9:GOSUB170:ONCDGOTO1950:C1=VAL(L$)
  286. 3115 IFC1=9THENC1=1
  287. 3120 IFC1>=1ANDC1<9THEN3140
  288. 3130 PRINT"[204]T. [211]ULU REPORTS:[139]   '[201]NCORRECT COURSE DATA, [211]IR!'[139]":GOTO2870
  289. 3140 X$="8":IFD(1)<0THENX$=".2"
  290. 3150 PRINT"[215][193][210][208][160][198][193][195][212][207][210][160](0-"X$"):":L=9:GOSUB170:ONCDGOTO1950:W1=VAL(L$)
  291. 3155 IFD(1)<0ANDW1>.2THEN3200
  292. 3160 IFW1>0ANDW1<8THEN3210
  293. 3170 IFW1=0THEN2870
  294. 3180 PRINT"[195]HIEF [197]NGINEER [211]COTT [210]EPORTS:[139]"
  295. 3185 PRINT"   '[212]HE ENGINES WON'T TAKE [215]ARP"STR$(W1)"!'[139]"
  296. 3190 GOTO2870
  297. 3200 PRINT"[215]ARP [197]NGINES ARE DAMAGED.[139][205]AXIMUM SPEED = [215]ARP .2[139]":GOTO2870
  298. 3210 N=INT(W1*8+.5):IFE-N>=0THEN3290
  299. 3220 PRINT"[197]NGINEERING REPORTS:[139]   '[201]NSUFFICIENT ENERGY AVAILABLE[139]"
  300. 3230 PRINT"    FOR MANEUVERING AT [215]ARP"STR$(W1)"!'[139]"
  301. 3240 IFS<N-EORD(7)<0THEN2870
  302. 3250 PRINT"[196]EFLECTOR [195]ONTROL [210]OOM [193]CKNOWLEDGES[139]"STR$(S)"UNITS OF ENERGY PRESENTLY "
  303. 3260 PRINT"DEPLOYED[139]TO[160]SHIELDS.[139]"
  304. 3270 GOTO2870
  305. 3280 REM ***"[203][204][201][206][199][207][206][211][160][198][201][210][197][160][207][206][160][205][207][214][201][206][199][160][160][160][160][160][160][160][160][160][211][200][201][208]"
  306. 3290 X=0:Y=10:GOSUB6700:NN=14:GOSUB2090:X=0:Y=10:GOSUB6700
  307. 3300 FORI1=1TOK3:IFK(I,3)=0THEN3330
  308. 3310 A$="   ":Z1=K(I,1):Z2=K(I,2):GOSUB6190:GOSUB6160
  309. 3320 K(I,1)=Z1:K(I,2)=Z2:A$=KL$:GOSUB6190
  310. 3330 NEXT:GOSUB4760:D1=0:D6=W1:IFW1>=1THEND6=1
  311. 3340 FORI=1TO9:IFD(I)>=0THEN3390
  312. 3350 D(I)=D(I)+D6:IFD(I)>-.1ANDD(I)<0THEND(I)=-.1:GOTO3390
  313. 3360 IFD(I)<0THEN3390
  314. 3370 IFD1<>1THEND1=1:PRINT"[152][196]AMAGE [195]ONTROL [210]EPORT:[139]"
  315. 3380 R1=I:GOSUB6250:PRINT""G2$" [210]EPAIR COMPLETED.[139]"
  316. 3390 NEXT:IFRND(1)>(.2+LV)THEN3450
  317. 3400 R1=INT((RND(1)*8.979999)+1.01):IFRND(1)>(.6-LV)THEN3430
  318. 3410 D(R1)=D(R1)-(RND(1)*5+1):PRINT"[158][196]AMAGE [195]ONTROL [210]EPORT:[139]"
  319. 3420 GOSUB6250:PRINT""G2$" [196]AMAGED.[152][139]":GOTO3450
  320. 3430 D(R1)=D(R1)+RND(1)*3+1:PRINT"[196]AMAGE [195]ONTROL [210]EPORT:[139]"
  321. 3440 GOSUB6250:PRINT"[158]"G2$" REPAIR HAS IMPROVED[152][139]"
  322. 3450 PRINT"[156]":A$="   ":Z1=INT(S1):Z2=INT(S2):GOSUB6190:PRINT"[152]"
  323. 3460 X1=C(INT(C1),1)+(C(INT(C1)+1,1)-C(INT(C1),1))*(C1-INT(C1)):X=S1:Y=S2
  324. 3470 X2=C(INT(C1),2)+(C(INT(C1)+1,2)-C(INT(C1),2))*(C1-INT(C1)):Q4=Q1:Q5=Q2
  325. 3480 FORI=1TON:S1=S1+X1:S2=S2+X2:IFS1<1ORS1>=9ORS2<1ORS2>=9THEN3590
  326. 3490 S8=INT(S1)*24+INT(S2)*3-26:IFMID$(Q$,S8,2)="  "THEN3520
  327. 3500 S1=INT(S1-X1):S2=INT(S2-X2):PRINT"[215]ARP [197]NGINES SHUT DOWN AT SECTOR"
  328. 3505 PRINTSTR$(S1)","STR$(S2)"[139]"
  329. 3510 PRINT"DUE TO BAD NAVIGATION.[139]":GOTO3530
  330. 3520 NEXT:S1=INT(S1):S2=INT(S2)
  331. 3530 A$=EN$:Z1=INT(S1):Z2=INT(S2):GOSUB6190:GOSUB3770:T8=1
  332. 3540 IFW1<1THENT8=.1*INT(10*W1)
  333. 3550 T=T+T8:IFT>(T0+T9)THEN4940
  334. 3560 REM"*** [211][197][197][160][201][198][160][196][207][195][203][197][196]"
  335. 3570 GOTO2860
  336. 3580 REM"*** [209][213][193][196][210][193][206][212][160][204][201][205][201][212][211]"
  337. 3590 X=8*Q1+X+N*X1:Y=8*Q2+Y+N*X2:Q1=INT(X/8):Q2=INT(Y/8):S1=INT(X-Q1*8)
  338. 3600 S2=INT(Y-Q2*8):IFS1=0THENQ1=Q1-1:S1=8
  339. 3610 IFS2=0THENQ2=Q2-1:S2=8
  340. 3620 X5=0:IFQ1<1THENX5=1:Q1=1:S1=1
  341. 3630 IFQ1>8THENX5=1:Q1=8:S1=8
  342. 3640 IFQ2<1THENX5=1:Q2=1:S2=1
  343. 3650 IFQ2>8THENX5=1:Q2=8:S2=8
  344. 3660 IFX5=0THEN3740
  345. 3670 PRINT"\W3":X=0:Y=10:GOSUB6700:NN=13:GOSUB2090:X=0:Y=10:GOSUB6700
  346. 3680 PRINT"[204]T. [213]HURA REPORTS A MESSAGE FROM[139][211]TARFLEET [195]OMMAND:[139]"
  347. 3690 PRINT"   '[208]ERMISSION TO CROSS THE [199]ALACTIC[139]    [194]ARRIER "
  348. 3700 PRINT"IS HEREBY *[196][197][206][201][197][196]*.  [211]HUT[139]    DOWN YOUR ENGINES.'[139]"
  349. 3710 PRINT"[195]HIEF [197]NGINEER [211]COTT REPORTS:[139]   '[215]ARP [197]NGINES SHUT DOWN AT[139]"
  350. 3720 PRINT"   [211]ECTOR"STR$(S1)","STR$(S2)" OF [209]UADRANT"STR$(Q1)","STR$(Q2)".'[139]"
  351. 3730 IFT>T0+T9THEN4910
  352. 3740 IF8*Q1+Q2=8*Q4+Q5THEN3530
  353. 3750 T=T+1:GOSUB3770:GOTO2670
  354. 3760 REM"*** [205][193][206][197][213][214][197][210][160][197][206][197][210][199][217][160][211]/[210]"
  355. 3770 E=E-N-10:IFE>=0THENRETURN
  356. 3780 PRINT"[158][211][200][201][197][204][196][160][195][207][206][212][210][207][204][160][211][213][208][208][204][201][197][211][160][208][207][215][197][210][160][212][207][139][195][207][205][208][204][197][212][197][160][205][193][206][213][197][214][197][210].[152][139]"
  357. 3790 S=S+E:E=0:IFS<=0THENS=0
  358. 3800 RETURN
  359. 3810 REM"*** [204][207][206][199][160][210][193][206][199][197][160][211][197][206][211][207][210][160][211][195][193][206]"
  360. 3820 IFD(3)<0THENPRINT"[204][207][206][199][160][210][193][206][199][197][160][211][197][206][211][207][210][211][160][201][206][207][208][197][210][193][194][204][197][152][139]":GOTO2870
  361. 3830 PRINT"[204][207][206][199][160][210][193][206][199][197][160][211][195][193][206][160][198][207][210][160][209][213][193][196][210][193][206][212]"STR$(Q1)","STR$(Q2)"[139]"
  362. 3840 O1$="--------------------":PRINT"[156]"O1$"[139]"
  363. 3850 FORI=Q1-1TOQ1+1:N(1)=-1:N(2)=-2:N(3)=-3:FORJ=Q2-1TOQ2+1
  364. 3860 IFI>0ANDI<9ANDJ>0ANDJ<9THENN(J-Q2+2)=G(I,J):Z(I,J)=G(I,J)
  365. 3870 NEXT:FORL=1TO3:PRINT": ":IFN(L)<0THENPRINT"*** ":GOTO3890
  366. 3880 PRINTRIGHT$(STR$(N(L)+1000),3)" "
  367. 3890 NEXT:PRINT":[139]":PRINTO1$"[139]":NEXT:PRINT"[152]":GOTO2870
  368. 3900 REM"*** [208][200][193][211][197][210][160][195][207][206][212][210][207][204]"
  369. 3910 IFD(4)<0THENPRINT"[208][200][193][211][197][210][211][160][201][206][207][208][197][210][193][212][201][214][197][152][139]":GOTO2870
  370. 3920 IFK3>0THEN3960
  371. 3930 NN=11
  372. 3940 PRINT"[211]CIENCE [207]FFICER [211]POCK REPORTS:[139]   '[211]ENSORS SHOW NO ENEMY SHIPS[139]"
  373. 3950 PRINT"    IN THIS [209]UADRANT.'[139]":GOSUB2090:GOTO2870
  374. 3960 IFD(8)<0THENPRINT"[158][195][207][205][208][213][212][197][210][160][198][193][201][204][213][210][197][160][200][193][205][208][197][210][211][160][193][195][195][213][210][193][195][217][152][139]"
  375. 3970 PRINT"[208][200][193][211][197][210][211][160][204][207][195][203][197][196][160][207][206][160][212][193][210][199][197][212]:[152][139]"
  376. 3980 PRINT"[197][206][197][210][199][217][160][193][214][193][201][204][193][194][204][197][160]="STR$(E)" [213][206][201][212][211][139]"
  377. 3990 PRINT"[206][213][205][194][197][210][160][207][198][160][213][206][201][212][211][160][212][207][160][198][201][210][197]:":L=4:GOSUB170:ONCDGOTO1950:X1=VAL(L$)
  378. 3995 IFX1<=0THENNN=14:GOSUB2090:GOTO2870
  379. 4000 IFE-X1<0THEN3980
  380. 4010 X=0:Y=10:GOSUB6700:NN=14:GOSUB2090:X=0:Y=10:GOSUB6700
  381. 4020 E=E-X1:IFD(7)<0THENX1=X1*RND(1)
  382. 4030 H1=INT(X1/K3):FORI=1TO9:IFK(I,3)<=0THEN4130
  383. 4040 H=INT((H1/FND(0))*(RND(1)+2)):IFH>.15*K(I,3)THENNN=14:GOTO4060
  384. 4050 PRINT"[158][211][197][206][211][207][210][211][160][211][200][207][215][160][206][207][160][196][193][205][193][199][197][160][212][207][160][197][206][197][205][217][160][193][212]"STR$(K(I,1))","STR$(K(I,2))"[152][139]":GOTO4130
  385. 4060 K(I,3)=K(I,3)-H:H$=RIGHT$(STR$(H),LEN(STR$(H))-1)
  386. 4080 PRINTH$" [213][206][201][212][160][200][201][212][160][207][206][160][203][204][201][206][199][207][206][160][193][212][160][211][197][195][212][207][210]"STR$(K(I,1))","STR$(K(I,2))"[139]":H=0:H$=""
  387. 4090 IFK(I,3)<=0THENPRINT"****** [203][204][201][206][199][207][206][160][196][197][211][212][210][207][217][197][196] ******[152][139]":GOTO4110
  388. 4100 PRINT"(SENSORS SHOW"STR$(INT(100*K(I,3))*.01)" UNITS REMAINING)[139]":GOTO4130
  389. 4110 K3=K3-1:K9=K9-1:Z1=K(I,1):Z2=K(I,2):A$="   ":GOSUB6190
  390. 4120 K(I,3)=0:G(Q1,Q2)=G(Q1,Q2)-100:Z(Q1,Q2)=G(Q1,Q2):IFK9<=0THEN5030
  391. 4130 IFI=3ORI=6THENGOSUB5020
  392. 4135 NEXT:GOSUB4760:GOSUB5070:GOTO2870
  393. 4140 REM"*** [208][200][207][212][207][206][160][212][207][210][208][197][196][207][197][211]"
  394. 4150 IFP<=0THENPRINT"[193][204][204][160][208][200][207][212][207][206][160][212][207][210][208][197][196][207][197][211][160][213][211][197][196][152][139]":GOTO2870
  395. 4160 IFD(5)<0THENPRINT"[208][200][207][212][207][206][160][212][213][194][197][211][160][201][206][207][208][197][210][193][212][201][214][197][152][139]":GOTO2870
  396. 4170 PRINT"[208][200][207][212][207][206][160][212][207][210][208][197][196][207][160][195][207][213][210][211][197] (1-9):":L=9:GOSUB170:ONCDGOTO1950:C1=VAL(L$)
  397. 4175 IFC1=9THENC1=1
  398. 4180 IFC1>=1ANDC1<9THEN4210
  399. 4190 PRINT"[197]NSIGN [195]HEKOV REPORTS:[139]   '[201]NCORRECT COURSE DATA, [211]IR!'[139]"
  400. 4200 GOTO2870
  401. 4210 X1=C(INT(C1),1)+(C(INT(C1)+1,1)-C(INT(C1),1))*(C1-INT(C1)):X=S1:Y=S2
  402. 4220 X2=C(INT(C1),2)+(C(INT(C1)+1,2)-C(INT(C1),2))*(C1-INT(C1)):E=E-2:P=P-1
  403. 4230 PRINT"[212][207][210][208][197][196][207][160][212][210][193][195][203]:[139]"
  404. 4240 X=X+X1:Y=Y+X2:X3=INT(X+.5):Y3=INT(Y+.5)
  405. 4250 IFX3<1ORX3>8ORY3<1ORY3>8THEN4450
  406. 4260 PRINT"              "STR$(X3)","STR$(Y3)"[139]":A$="   ":Z1=X:Z2=Y:GOSUB6350
  407. 4270 IFZ3<>0THEN4240
  408. 4280 A$=KL$:Z1=X:Z2=Y:GOSUB6350:IFZ3=0THEN4330
  409. 4290 PRINT"*** [203][204][201][206][199][207][206][160][196][197][211][212][210][207][217][197][196][160]***[152][139]":K3=K3-1:K9=K9-1:IFK9<=0THEN5030
  410. 4300 FORI=1TO4:IFX3=K(I,1)ANDY3=K(I,2)THEN4320
  411. 4310 NEXT:I=3
  412. 4320 K(I,3)=0:GOTO4430
  413. 4330 J=INT(RND(1)*2)+1
  414. 4340 A$=ST$(J):Z1=X:Z2=Y:GOSUB6350:IFZ3=0THEN4360
  415. 4350 PRINT"[211][212][193][210][160][193][212]"STR$(X3)","STR$(Y3)"[193][194][211][207][210][194][197][196][160][212][207][210][208][197][196][207][160][197][206][197][210][199][217].[139]":GOSUB4760:GOTO2870
  416. 4360 A$=SB$:Z1=X:Z2=Y:GOSUB6350:IFZ3=0THEN4170
  417. 4370 PRINT"[158]*** [211][212][193][210][194][193][211][197][160][196][197][211][212][210][207][217][197][196] ***[152][139]":B3=B3-1:B9=B9-1
  418. 4380 IFB9>0ORK9>T-T0-T9THEN4420
  419. 4390 PRINT"[212][200][193][212][160][196][207][197][211][160][201][212], [195][193][208][212][193][201][206]!!  [217]OU ARE HEREBY[139]RELIEVED OF COMMAND "
  420. 4400 PRINT"AND SENTENCED TO 99[139][211]TARDATES AT HARD LABOR ON [195]YGNUS 12!![139]"
  421. 4410 GOTO4960
  422. 4420 PRINT"[211]TARFLEET [195]OMMAND REVEIWING YOUR RECORD[139]TO CONSIDER [195]OURT [205]ARTIAL![139]"
  423. 4430 D0=0:Z1=X:Z2=Y:A$="   ":GOSUB6190
  424. 4440 G(Q1,Q2)=K3*100+B3*10+S3:Z(Q1,Q2)=G(Q1,Q2):GOSUB4760:GOSUB5070:GOTO2870
  425. 4450 PRINT"[158][212][207][210][208][197][196][207][160][205][201][211][211][197][196][152][139]":GOSUB4760:GOSUB5070:GOTO2870
  426. 4460 REM"*** [211][200][201][197][204][196][160][195][207][206][212][210][207][204]"
  427. 4470 IFD(7)<0THENPRINT"[211][200][201][197][204][196][160][195][207][206][212][210][207][204][160][201][206][207][208][197][210][193][194][204][197][152]":GOTO2870
  428. 4480 PRINT"[197]NERGY AVAILABLE ="STR$(E+S)"[139]":PRINT"[206]UMBER OF UNITS TO SHIELDS:"
  429. 4485 L=4:GOSUB170:ONCDGOTO1950:X=VAL(L$)
  430. 4490 IFX<0ORX=STHENPRINT"<[211][200][201][197][204][196][211][160][213][206][195][200][193][206][199][197][196]>[139]":GOTO2870
  431. 4500 IFX<=E+STHEN4530
  432. 4510 PRINT"[211]HIELD [195]ONTROL REPORTS:[139]   '[212]HIS IS NOT THE[139]"
  433. 4515 PRINT"[198]EDERATION [212]REASURY.'[139]"
  434. 4520 PRINT"<[211][200][201][197][204][196][211][160][213][206][195][200][193][206][199][197][196]>[139]":GOTO2870
  435. 4530 E=E+S-X:S=X:PRINT"[196]EFLECTOR [195]ONTROL [210]OOM REPORT:[139]"
  436. 4540 PRINT"   '[211]HIELDS ARE AT"STR$(INT(S))" UNITS AS[139]    YOU COMMANDED.'[139]"
  437. 4545 X=26:Y=7:GOSUB6700
  438. 4550 IFD(9)<0THEN2870
  439. 4560 PRINT"[211][200][201][197][204][196][211]"STR$(INT(S))"  ":GOTO2870
  440. 4570 REM"*** [196][193][205][193][199][197][160][195][207][206][212][210][207][204]"
  441. 4580 IFD(6)>=0THEN4700
  442. 4590 X=0:Y=10:GOSUB6700:PRINT"[196][193][205][193][199][197][160][195][207][206][212][210][207][204][160][210][197][208][207][210][212][160][206][207][212][160][193][214][193][201][204][193][194][204][197][152][139]":IFD0=0THEN2870
  443. 4600 D3=0:FORI=1TO9:IFD(I)<0THEND3=D3+.1
  444. 4610 NEXT:IFD3=0THEN2870
  445. 4620 D3=D3+D4:IFD3>=1THEND3=.9
  446. 4630 FORDM=1TO5000:NEXT
  447. 4640 PRINT"[212]ECHNICIANS STANDING BY TO EFFECT[139]REPAIRS TO YOUR SHIP:[139]"
  448. 4650 PRINT"[197]STIMATED TIME TO REPAIR:"STR$(.01*INT(100*D3))" [211]TARDATES[139]"
  449. 4660 PRINT": [193]UTHORIZE REPAIRS (Y/N):":L=1:GOSUB170:ONCDGOTO1950:A$=L$+""
  450. 4670 IFA$<>"Y"THEN2870
  451. 4680 X=0:Y=10:GOSUB6700:FORI=1TO9:IFD(I)<0THEND(I)=0
  452. 4690 NEXT:T=T+D3+.1
  453. 4700 NN=10:X=0:Y=10:GOSUB6700:GOSUB2090:X=0:Y=10:GOSUB6700
  454. 4710 PRINT"[196][197][214][201][195][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][211][212][193][212][197][160][207][198][160][210][197][208][193][201][210][139]":FORR1=1TO9
  455. 4720 GOSUB6250:PRINTG2$LEFT$(Z$,25-LEN(G2$))STR$(INT(D(R1)*100)*.01)"[139]"
  456. 4730 NEXT:IFD0<>0THEN4600
  457. 4740 GOSUB5070:GOTO2860
  458. 4750 REM"*** [203][204][201][206][199][207][206][211][160][211][200][207][207][212][201][206][199]"
  459. 4760 IFK3<=0THENRETURN
  460. 4770 IFD0<>0THENPRINT"[211]TARBASE SHIELDS PROTECT [197]NTERPRISE.[139]":RETURN
  461. 4780 FORI=1TO9:IFK(I,3)<=0THEN4890
  462. 4790 IFI=1ORI=3ORI=5ORI=7ORI=9THENNN=14:GOSUB5020
  463. 4800 H=INT((K(I,3)/FND(1))*(2+RND(1)+(RND(1)*LL*.15))):S=S-H
  464. 4810 H$=RIGHT$(STR$(H),LEN(STR$(H))-1)
  465. 4820 PRINTH$" UNIT HIT ON [197]NTERPRISE FROM[139]"
  466. 4825 PRINT"SECTOR"STR$(K(I,1))","STR$(K(I,2))"[139]"
  467. 4830 IFS<=0THEN4930
  468. 4840 PRINT"<[211]HIELDS DOWN TO"STR$(S)" UNITS>[139]":IFH<20THEN4890
  469. 4850 IFRND(1)>.6ORH/S<=.02THEN4890
  470. 4860 R1=FNR(1):D(R1)=D(R1)-H/S-.5*RND(1):GOSUB6250
  471. 4870 PRINT"\W3":X=0:Y=10:GOSUB6700:NN=12:GOSUB2090:X=0:Y=10:GOSUB6700
  472. 4880 PRINT"[158][196]AMAGE [195]ONTROL REPORTS:[139]   '"G2$" DAMAGED BY[139]"
  473. 4885 PRINT"THE HIT.'[139]"
  474. 4890 NEXT:RETURN
  475. 4900 REM"*** [197][206][196][160][207][198][160][199][193][205][197]"
  476. 4910 PRINT"\W3":NN=14:X=0:Y=10:GOSUB6700:GOSUB2090:X=0:Y=10:GOSUB6700
  477. 4920 PRINT"[212][200][197][160][197][206][212][197][210][208][210][201][211][197][160][200][193][211][160][194][197][197][206][160][196][197][211][212][210][207][217][197][196]![139][212]HE [198]EDERATION WILL BE CONQUERED![139]"
  478. 4930 PRINT"[201]T IS [211]TARDATE"STR$(T)"[139]"
  479. 4940 PRINT"[217][207][213][160][200][193][214][197][160][215][193][211][212][197][196][160][193][215][193][217][160][193][204][204][160][217][207][213][210][160][212][201][205][197][160][193][206][196][139][212][200][197][160][203][204][201][206][199][207][206][211][160][200][193][214][197][160][195][207][206][209][213][197][210][197][196] [212][200][197][139]"
  480. 4950 PRINT"[199][193][204][193][216][217][160][215][200][201][204][197][160][217][207][213][160][194][213][205][194][204][197][196][160][193][210][207][213][206][196]![139]"
  481. 4960 PRINT"[212]HERE WERE"STR$(K9)" [203]LINGON [194]ATTLE [195]RUISERS[139]"
  482. 4965 PRINT"LEFT AT THE END OF THE MISSION.[139]"
  483. 4970 IFB9=0THEN5010
  484. 4980 PRINT"[198][207][210][160][193][160][211][201][205][213][204][193][210][160][205][201][211][211][201][207][206][160]-[160][201][198][160][212][200][197][210][197][160][201][211][160][193][139][214][207][204][213][206][212][197][197][210],[160][204][197][212][160][200][201][205][160][211][212][197][208][160][198][207][210][215][193][210][196][139]"
  485. 4990 PRINT"[193][206][196][160][197][206][212][197][210][160]'AYE': ":L=3:GOSUB170:ONCDGOTO1950:A$=L$+""
  486. 4995 IFA$="AYE"THEN2120
  487. 5000 PRINT"[193][210][197][160][217][207][213][160][211][213][210][197][160](Y/N): ":L=1:GOSUB170:ONCDGOTO1950:A$=L$+""
  488. 5005 IFA$="N"THEN2120
  489. 5010 GOTO6650
  490. 5020 PRINT"\W3":X=0:Y=10:GOSUB6700:GOSUB2090:X=0:Y=10:GOSUB6700:RETURN
  491. 5030 GOSUB5020:PRINT"[195][207][206][199][210][193][212][213][204][193][212][201][207][206][211][160][195][193][208][212][193][201][206]! [212]HE LAST[139]"
  492. 5035 PRINT"[203]LINGON [194]ATTLE [195]RUISER MENACING[139]"
  493. 5040 PRINT"THE [198]EDERATION HAS BEEN DESTROYED.[139]"
  494. 5050 PRINT"[217]OUR EFFICIENCY RATING IS"STR$(1000*(K7/(T-T0))^2)"[139]":GOTO4970
  495. 5060 REM"*** [211][200][207][210][212][160][210][193][206][199][197][160][211][195][193][206][206][197][210][160][193][206][196][160][160][160][160][160][160][160][160][160][211][212][193][210][212][213][208]"
  496. 5070 X=0:Y=0:GOSUB6700:FORI=S1-1TOS1+1:FORJ=S2-1TOS2+1
  497. 5080 IFINT(I+.5)<1ORINT(I+.5)>8ORINT(J+.5)<1ORINT(J+.5)>8THEN5100
  498. 5090 A$=SB$:Z1=I:Z2=J:GOSUB6350:IFZ3=1THEN5110
  499. 5100 NEXT:NEXT:D0=0:GOTO5130
  500. 5110 D0=1:C$="[196][207][195][203][197][196]":CO$="":E=E0:P=P0
  501. 5120 NN=10:GOSUB5020:PRINT"[152][211][200][201][197][204][196][211][160][196][210][207][208][208][197][196][160][198][207][210][160][196][207][195][203][201][206][199][139]":S=0:GOTO5150
  502. 5130 IFK3>0THENC$="*[210][197][196]* ":CO$="":GOTO5150
  503. 5140 C$="[199][210][197][197][206] ":CO$="":IFE<E0*.1THENC$="[217][197][204][204][207][215]":CO$="[158]"
  504. 5150 IFD(2)>=0THEN5180
  505. 5160 FORDM=0TO9:X=0:Y=DM:GOSUB6700:PRINTNU$"[139]":NEXT:X=0:Y=4:GOSUB6700
  506. 5170 PRINT"* [211][200][207][210][212][160][210][193][206][199][197][160][211][197][206][211][207][210][211][160]*[139]":X=0:Y=5:GOSUB6700
  507. 5175 PRINT"     * [193][210][197] [207][213][212] *[152][139]":X=0:Y=10:GOSUB6700:GOTO5250
  508. 5180 C1$="---"
  509. 5190 O1$="'"+C1$+C1$+C1$+C1$+C1$+C1$+C1$+C1$+"'             "
  510. 5200 C2$=C1$
  511. 5210 O2$=","+C2$+C2$+C2$+C2$+C2$+C2$+C2$+C2$+",             "
  512. 5220 X=0:Y=0:GOSUB6700:PRINTCO$O1$"[139]":FORI=1TO8:X=0:Y=I:GOSUB6700
  513. 5230 PRINT"![152]":FORJ=(I-1)*24+1TO(I-1)*24+22STEP3:PRINTMID$(Q$,J,3):NEXT
  514. 5240 PRINTCO$"![139]":NEXT:PRINTO2$"[152][139]":X=0:Y=0:GOSUB6700
  515. 5250 IFD(9)>=0THEN5290
  516. 5260 FORI=1TO8:X=26:Y=I:GOSUB6700:PRINT"              [139]":NEXT
  517. 5270 X=26:Y=4:GOSUB6700:PRINT"[201][206][211][212][210][213][205][197][206][212][211]":X=26:Y=5:GOSUB6700:PRINT"[201][206][207][208][197][210][193][212][201][214][197][152][139]"
  518. 5280 GOTO5410
  519. 5290 FORI=2TO9:X=26:Y=I-1:GOSUB6700
  520. 5300 ONIGOTO5310,5320,5330,5340,5350,5360,5370,5380,5390
  521. 5310 PRINT"              ";:GOTO5400
  522. 5320 PRINT"[211][212] [196][193][212][197]"STR$(INT(INT(T*10)*.1))" ";:GOTO5400
  523. 5330 PRINT"[195][207][206][196].   "CO$C$"[152]";:GOTO5400
  524. 5340 PRINT"[209][213][193][196].  "STR$(Q1)","STR$(Q2)"";:GOTO5400
  525. 5350 PRINT"[211][197][195][212][207][210] "STR$(S1)","STR$(S2);:GOTO5400
  526. 5360 PRINT"[208][200][207] [212][207][210]"STR$(INT(P))" ";:GOTO5400
  527. 5370 PRINT"[212][212][204] [197][206][197]"STR$(INT(E+S))" ";:GOTO5400
  528. 5380 PRINT"[211][200][201][197][204][196][211]"STR$(INT(S))"  ";:GOTO5400
  529. 5390 PRINT"[203][204][201] [210][197][205]"STR$(INT(K9))" ";
  530. 5400 NEXT
  531. 5410 X=0:Y=10:GOSUB6700:RETURN
  532. 5420 REM"*** [204][201][194][210][193][210][217][160][195][207][205][208][213][212][197][210]"
  533. 5430 IFD(8)<0THENPRINT"[195][207][205][208][213][212][197][210][160][196][201][211][193][194][204][197][196][152][139]":GOTO2870
  534. 5440 X=0:Y=10:GOSUB6700
  535. 5450 PRINT"[195][207][205][208][213][212][197][210][160][193][195][212][201][214][197][152][139]"
  536. 5460 PRINT"[204][201][194][210][193][210][217]-[195][207][205][208][213][212][197][210][160][198][213][206][195][212][201][207][206][211]:[139]"
  537. 5470 PRINT"1=[195]ULMULATIVE [199]ALACTIC RECORD[139]"
  538. 5480 PRINT"2=[211]TATUS [210]EPORT[139]"
  539. 5490 PRINT"3=[208]HOTON [212]ORPEDO [196]ATA[139]"
  540. 5500 PRINT"4=[211]TARBASE [206]AVIGATION [196]ATA[139]"
  541. 5510 PRINT"5=[196]IRECTION/[196]ISTANCE [195]ALCULATOR[139]"
  542. 5520 PRINT"6=[199]ALAXY '[210]EGION [206]AME' [205]AP[139]"
  543. 5530 PRINT"7=[197]XIT [195]OMPUTER[139]"
  544. 5540 PRINT"[139][152][193][215][193][201][212][201][206][199][160][195][207][205][205][193][206][196]:"
  545. 5550 L=1:GOSUB170:ONCDGOTO1950:A2$=L$+""
  546. 5560 X=0:Y=10:GOSUB6700:A2=VAL(A2$):IFA2<1ORA2>7THEN5550
  547. 5570 H8=1:ONA2GOTO5610,5750,5830,6100,5890,5590,2870
  548. 5580 REM"*** [211][197][212][213][208][160][198][207][210][160][195][200][193][206][199][201][206][199][160][199][193][204][193][216][217][160][160][160][160][160][160][160][210][197][195][207][210][196][160][212][207][160][199][193][204][193][216][217][160][205][193][208]"
  549. 5590 PRINT"[147]";:H8=0:G5=1:DM$="[212][200][197][160][199][193][204][193][216][217]":PRINT"\_13"DM$"[139]":GOTO5640
  550. 5600 REM"*** [199][193][204][193][195][212][201][195][160][210][197][195][207][210][196]"
  551. 5610 H8=1:PRINT"[147] ";
  552. 5620 PRINT"[210][197][195][207][210][196][160][207][198][160][199][193][204][193][216][217][160][198][207][210][160][209][213][193][196][210][193][206][212]"STR$(Q1)",[158]"STR$(Q2)"[139]"
  553. 5630 PRINT"[139]"
  554. 5640 PRINT"    1   2   3   4   5   6   7   8[139]"
  555. 5650 O1$="   --- --- --- --- --- --- --- ---"
  556. 5660 PRINT"[154]"O1$"[139]":FORI=1TO8:PRINT"[152]"STR$(I)" ":IFH8=0THEN5700
  557. 5670 FORJ=1TO8:PRINT"[156]";:IFZ(I,J)=0THENPRINT"*** ";:GOTO5690
  558. 5680 PRINTRIGHT$(STR$(Z(I,J)+1000),3)" ";
  559. 5690 NEXT:GOTO5720
  560. 5700 PRINT"[154]";:Z4=I:Z5=1:GOSUB6400:PRINT"\_03"G2$;
  561. 5710 Z5=5:GOSUB6400:PRINT"\_19"G2$;
  562. 5720 PRINT"[139][153]"O1$"[152][139]":NEXT:PRINT"[139]"
  563. 5730 PRINT"[208][210][197][211][211][160]'[210][197][212][213][210][206]'[160][212][207][160][195][207][206][212][201][206][213][197]\G1":PRINT"[147] ";:GOSUB5070:GOTO2870
  564. 5740 REM"*** [211][212][193][212][213][211][160][210][197][208][207][210][212]"
  565. 5750 NN=14:GOSUB2090:X=0:Y=20:GOSUB6700
  566. 5760 PRINT"[211][212][193][212][213][211][160][210][197][208][207][210][212]:[139]":X$="":IFK9>1THENX$="[211]"
  567. 5770 PRINT"[211][212][193][210][196][193][212][197][211][160][204][197][198][212]:"STR$(.1*INT((T0+T9-T)*10))
  568. 5780 X$="[211]":IFB9<2THENX$="":IFB9<1THEN5810
  569. 5790 PRINT"[157];  [211][212][193][210][194][193][211][197]"X$":"STR$(B9)"[139]"
  570. 5800 GOTO4580
  571. 5810 PRINT"-- [206][207][160][211][212][193][210][194][193][211][197][211][160][204][197][198][212]![139]":GOTO4580
  572. 5820 REM"*** [211][212][193][210][194][193][211][197],[160][212][207][210][208][197][196][207] AND[160][196]/[196][160][160][160][160][160][160][160][195][193][204][195][213][204][193][212][207][210]"
  573. 5830 NN=14:GOSUB2090:X=0:Y=10:GOSUB6700:IFK3<=0THENNN=10:GOTO3940
  574. 5840 X$="":IFK3>1THENX$="[211]"
  575. 5850 PRINT"[198][210][207][205][160][197][206][212][197][210][208][210][201][211][197][160][212][207][160][203][204][201][206][199][207][206][160][195][210][213][201][211][197][210]"X$"[139]"
  576. 5860 H8=0:FORI=1TO9:IFK(I,3)<=0THEN6090
  577. 5870 W1=K(I,1):X=K(I,2)
  578. 5880 C1=S1:A=S2:GOTO5940
  579. 5890 NN=14:X=0:Y=10:GOSUB6700:GOSUB2090:X=0:Y=10:GOSUB6700
  580. 5900 PRINT"[196][201][210][197][195][212][201][207][206]/[196][201][211][212][193][206][195][197][160][195][193][204][195][213][204][193][212][207][210]:[139]"
  581. 5910 PRINT "[217][207][213][160][193][210][197][160][193][212][160][209][213][193][196][210][193][206][212]"STR$(Q1)","STR$(Q2)" [211][197][195][212][207][210]"STR$(S1)","STR$(S2)"[139]"
  582. 5920 PRINT"[201][206][201][212][201][193][204][160][195][207][207][210][196][201][206][193][212][197][211][160]([216],[217]):"
  583. 5922 POKE45058,1:L=1:GOSUB170:POKE45058,0:ONCDGOTO1950:C1=VAL(L$):PRINTL$","
  584. 5924 POKE45058,1:L=1:GOSUB170:POKE45058,0:ONCDGOTO1950:A=VAL(L$):PRINTL$"[139]"
  585. 5930 PRINT"[198][201][206][193][204][160][195][207][207][210][196][201][206][193][212][197][211][160][160][160]([216],[217]):"
  586. 5932 POKE45058,1:L=1:GOSUB170:POKE45058,0:ONCDGOTO1950:W1=VAL(L$):PRINTL$","
  587. 5934 POKE45058,1:L=1:GOSUB170:POKE45058,0:ONCDGOTO1950:X=VAL(L$):PRINTL$"[139]"
  588. 5940 X=X-A:A=C1-W1:IFX<0THEN6020
  589. 5950 IFA<0THEN6040
  590. 5960 IFX>0THEN5980
  591. 5970 IFA=0THENC1=5:GOTO5990
  592. 5980 C1=1
  593. 5990 IFABS(A)<=ABS(X)THEN6010
  594. 6000 PRINT"[196][201][210][197][195][212][201][207][206][160]="STR$(C1+(((ABS(A)-ABS(X))+ABS(A))/ABS(A)))"[139]":GOTO6080
  595. 6010 PRINT"[196][201][210][197][195][212][201][207][206][160]="STR$(C1+(ABS(A)/ABS(X)))"[139]":GOTO6080
  596. 6020 IFA>0THENC1=3:GOTO6050
  597. 6030 IFX<>0THENC1=5:GOTO5990
  598. 6040 C1=7
  599. 6050 IFABS(A)>=ABS(X)THEN6070
  600. 6060 PRINT"[196][201][210][197][195][212][201][207][206][160]="STR$(C1+(((ABS(X)-ABS(A))+ABS(X))/ABS(X)))"[139]":GOTO6080
  601. 6070 PRINT"[196][201][210][197][195][212][201][207][206][160]="STR$(C1+(ABS(X)/ABS(A)))"[139]"
  602. 6080 PRINT"[196][201][211][212][193][206][195][197][160][160]="STR$(SQR(X^2+A^2))"[139]":IFH8=1THEN2870
  603. 6090 NEXT:GOTO2870
  604. 6100 X=0:Y=10:GOSUB6700:NN=14:GOSUB2090:X=0:Y=10:GOSUB6700
  605. 6110 IFB3<>0THENPRINT"[198][210][207][205][160][197][206][212][197][210][208][210][201][211][197][160][212][207][160][211][212][193][210][194][193][211][197]:[139]":W1=B4:X=B5:GOTO5880
  606. 6120 PRINT"[205][210]. [211][208][207][195][203][160][210][197][208][207][210][212][211]:[139]   '[211]ENSORS SHOW NO STARBASE[139]"
  607. 6125 PRINT"IN THIS [209]UADRANT.'[139]"
  608. 6130 GOTO2870
  609. 6140 END
  610. 6150 REM"*** [198][201][206][196][160][213][206][207][195][195][213][208][201][197][196][160][211][208][193][195][197][211]"
  611. 6160 R1=FNR(1):R2=FNR(1):A$="   ":Z1=R1:Z2=R2:GOSUB6350:IFZ3=0THEN6160
  612. 6170 RETURN
  613. 6180 REM"*** [201][206][211][197][210][212][160][201][206][212][207][160][211][212][210][201][206][199][160][193][210][210][193][217][160][207][198][160][160][160][160][160][209][213][193][196][210][193][206][212]"
  614. 6190 S8=INT(Z2-.5)*3+INT(Z1-.5)*24+1
  615. 6200 IFLEN(A$)<>3THENPRINT"[197][210][210][207][210][139]":GOTO360
  616. 6210 IFS8=1THENQ$=A$+RIGHT$(Q$,189):RETURN
  617. 6220 IFS8=190THENQ$=LEFT$(Q$,189)+A$:RETURN
  618. 6230 Q$=LEFT$(Q$,S8-1)+A$+RIGHT$(Q$,190-S8):RETURN
  619. 6240 REM"*** [196][197][214][201][195][197][160][206][193][205][197]"
  620. 6250 ONR1GOTO6260,6270,6280,6290,6300,6310,6320,6330,6340
  621. 6260 G2$="[215]ARP [197]NGINES":RETURN
  622. 6270 G2$="[211]HORT [210]ANGE [211]ENSORS":RETURN
  623. 6280 G2$="[204]ONG [210]ANGE [211]ENSORS":RETURN
  624. 6290 G2$="[208]HASER [195]ONTROL":RETURN
  625. 6300 G2$="[208]HOTON [212]UBES":RETURN
  626. 6310 G2$="[196]AMAGE [195]ONTROL":RETURN
  627. 6320 G2$="[211]HIELD [195]ONTROL":RETURN
  628. 6330 G2$="[204]IBRARY-[195]OMPUTER":RETURN
  629. 6340 G2$="[201]NSTRUMENTATION":RETURN
  630. 6350 Z1=INT(Z1+.5):Z2=INT(Z2+.5):S8=(Z2-1)*3+(Z1-1)*24+1:Z3=0
  631. 6360 IFMID$(Q$,S8,3)<>A$THENRETURN
  632. 6370 Z3=1:RETURN
  633. 6380 REM"*** [209][213][193][196][210][193][206][212][160][206][193][205][197][160][201][206][160]G2$"
  634. 6390 REM"*** [201][198] G5=1 [212][200][197][206][160][210][197][199][201][207][206][160][206][193][205][197][160][160][160][160][160][160][160][160][207][206][204][217]"
  635. 6400 IFZ5<=4THENONZ4GOTO6420,6430,6440,6450,6460,6470,6480,6490
  636. 6410 GOTO6500
  637. 6420 G2$="[193]NTARES":GOTO6590
  638. 6430 G2$="[210]IGEL":GOTO6590
  639. 6440 G2$="[208]ROCYON":GOTO6590
  640. 6450 G2$="[214]EGA":GOTO6590
  641. 6460 G2$="[195]ANOPUS":GOTO6590
  642. 6470 G2$="[193]LTAIR":GOTO6590
  643. 6480 G2$="[211]AGITTARIUS":GOTO6590
  644. 6490 G2$="[208]OLLUX":GOTO6590
  645. 6500 ONZ4GOTO6510,6520,6530,6540,6550,6560,6570,6580
  646. 6510 G2$="[211]IRIUS":GOTO6590
  647. 6520 G2$="[196]ENEB":GOTO6590
  648. 6530 G2$="[195]APELLA":GOTO6590
  649. 6540 G2$="[194]ETELGEUSE":GOTO6590
  650. 6550 G2$="[193]LDEBAREN":GOTO6590
  651. 6560 G2$="[210]EGULAS":GOTO6590
  652. 6570 G2$="[193]RCTURAS":GOTO6590
  653. 6580 G2$="[211]PICA"
  654. 6590 IFG5<>1THENONZ5GOTO6610,6620,6630,6640,6610,6620,6630,6640
  655. 6600 RETURN
  656. 6610 G2$=G2$+" [201]":RETURN
  657. 6620 G2$=G2$+" [201][201]":RETURN
  658. 6630 G2$=G2$+" [201][201][201]":RETURN
  659. 6640 G2$=G2$+" [201][214]":RETURN
  660. 6650 GOTO360
  661. 6700 POKE52030,PEEK(52030)+1:PRINT"";:POKE52030,PEEK(52030)-1:IFCGTHENPRINT"";
  662. 6710 IFPEEK(52070)THENPRINT#5,CHR$(27)"[0;0H"
  663. 6715 IFY>22THENY=22
  664. 6720 IFY>0THENFORYY=1TOY:PRINT"":NEXT
  665. 6730 IFX>0THENFORXX=1TOX:PRINT"":NEXT
  666. 6740 RETURN
  667.